# Usage: renaissance.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	sourceFile standard.tcl
	outputFile renaissance.ps 
	mapFile renaissance.map
	title "diplomacy map (renaissance variant)"
	images {
		chart {renaissance.base.ps {scan {22 25 650 576} {} {{part1 part2 part3 part4 part5 LAND} {Then Africa LAND} BritishIsles Lakes Islands part9 part10 part11 part12 part13 part14 part15 part16 part17 part18} \
			{gm moveto lin lineto SEA {Blue fill} ISLAND {Brown fill} SWITZERLAND {Grey fill} BORDER {BorderBlack stroke} internal {Black stroke} lastborder {} LAND {LandBrown stroke} miny 25}} LandBrown {}}
		coordinates {renaissance.base.ps {scan {} {provinces INFO supplies TLA}} {} {}}
	}
	borders {
		land {image {chart {LandBrown Brown}} LandBrown Border}
		internalBorders {image {chart Black} {} InternalBorder}
		borders {image {chart BorderBlack} {} NationalBorder}
		mountain {image {chart Grey} LandBrown NationalBorder}
		lake {image {chart Blue} SeaBlue Border} 
	}
	locations {
		supplies {{coordinates supplies} Supplies s {Blue {} S}}
		coasts {{coordinates provinces} Territories c {Red DarkGreen AF} {
			NAF TUN SYR SMY CON ANK ARM SEV MOL ATH ALB TRI
			VEN APU NAP PAP TUS GEN MAR LIS AQU BRE PIC BRU
			NET HAN DEN BER PRU LVN FIN SWE NWY SCO YOR LON
			WAL CHE CLY
		}}
		lands {{coordinates provinces} Territories l {Green DarkGreen A} {
			SER HUN VIE TYR BUR PAR RHE MUN BOH GAL UKR MUS
			WAR SIL SWI
		}}
		waters {{coordinates provinces} Territories w {White White F} {
			BAR NWG NTH SKA BAL BOT HEL ENG IRI NAO MAO WES
			LYO TYS ION ADR EAS AEG BLA
		}}
		greens {{coordinates provinces} Territories g {DarkGreen DarkGreen A} {
			SOF MAD NOV
		}}
		beaches {{coordinates provinces} Territories b {Yellow {} F} {
			SOF/EC SOF/SC MAD/SC MAD/NC NOV/SC NOV/NC
		}}
	}
	units {
		army A
		fleet {F ManOfWar}
	}
	powerNameVariations {short {retreats owners adjustments}}
	powers {
		England {E Blue White}
		France {F Turquoise Black}
		HolyRomanEmpire {H Black White HolyRoman}
		OttomanTurk {T Yellow Black Ottoman}
		Poland-Lithuania {P White Black Poland}
		Spain {S Green Black}
		Venice {V Red Black}
	}
}
